home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / PWRBALL2 / CHECKPIK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-15  |  7KB  |  343 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     Byte     BYTE001
  26.     Byte     BYTE002
  27.     Byte     BYTE003
  28.     Byte     BYTE004
  29.     Byte     BYTE005
  30.     Byte     BYTE006
  31.     Byte     BYTE007
  32.     Byte     BYTE008
  33.     Byte     BYTE009
  34.     Byte     BYTE010
  35.     Byte     BYTE011
  36.     Byte     BYTE012
  37.     Byte     BYTE013
  38.     Byte     BYTE014
  39.  
  40. ;------------------------------------------------------------------------------
  41.  
  42.     Cls
  43.     PrintLn ""
  44.     PrintLn ""
  45.     PrintLn "@X09                 POWERBALL PICK WINNERS DISPLAY FILE BUILDER@X07"
  46.     PrintLn ""
  47.     PrintLn "@X0F   Enter Date , Example:8-22-94 or 11-6-95 (Note no leading Zeros)"
  48.     InputStr "Date of Lotto Pick you are Checking?", STRING002, 10, 8, "1234567890" + "-", 0
  49.     If (Exist(PPEPath() + "CHECKPIK.CFG")) Then
  50.         :LABEL001
  51.         InputStr "Enter First Number Drawn ", BYTE007, 7, 2, "1234567890", 128
  52.         InputStr "Enter Second Number Drawn ", BYTE008, 7, 2, "1234567890", 128
  53.         InputStr "Enter Third Number Drawn ", BYTE009, 7, 2, "1234567890", 128
  54.         InputStr "Enter Fourth Number Drawn ", BYTE010, 7, 2, "1234567890", 128
  55.         InputStr "Enter Fifth Number Drawn ", BYTE011, 7, 2, "1234567890", 128
  56.         InputStr "Enter the POWERBALL that was Drawn ", BYTE012, 7, 2, "1234567890", 128 + 64
  57.         PrintLn ""
  58.         PrintLn "@X0BYOU ENTERED...@X07", +String(BYTE007) + " ", +String(BYTE008) + " ", +String(BYTE009) + " ", +String(BYTE010) + " ", +String(BYTE011) + "@X0C ", +String(BYTE012)
  59.         InputStr "ARE THESE NUMBERS CORRECT?  (Y)es or (N)o", STRING001, 10, 1, "YN", 16384 + 2
  60.         If (STRING001 == "N") Goto LABEL001
  61.         FOpen 2, PPEPath() + "CHECKPIK.CFG", 0, 0
  62.         FGet 2, STRING003
  63.         FClose 2
  64.         PrintLn ""
  65.         PrintLn ""
  66.         PrintLn "@X0B   BUILDING WINNERS DISPLAY FILE  ", STRING003, "  PLEASE WAIT....."
  67.         FCreate 3, STRING003, 1, 0
  68.         FPutLn 3
  69.         FPutLn 3, "@CLS@"
  70.         FPutLn 3
  71.         FPutLn 3, "                @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X07"
  72.         FPutLn 3, "                @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│@X07"
  73.         FPutLn 3, "                @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X07"
  74.         FPutLn 3, "@X07             @X0EDID YOU PLAY THE POWERBALL NUMBERS SHOWN TO YOU HERE@X0D??"
  75.         FPutLn 3, "           @X0BTHESE CALLERS ARE WINNERS IF THEY PLAYED THEIR NUMBERS@X0C!!!"
  76.         FPutLn 3, "     @X09DRAWING DATE....@X0C", +String(STRING002), " @X09        WINNING NUMBERS ....@X0F ", +String(BYTE007) + " ", +String(BYTE008) + " ", +String(BYTE009) + " ", +String(BYTE010) + " ", +String(BYTE011) + "@X0C ", +String(BYTE012)
  77.         FPutLn 3, "@X07-------------------------------------------------------------------------------"
  78.         FPutLn 3, "@X0E@POS:18@NAME                            @POS:47@WINNINGS"
  79.         FPutLn 3, "@X07-------------------------------------------------------------------------------"
  80.         FOpen 1, PPEPath() + String(STRING002), 0, 0
  81.         :LABEL002
  82.         BYTE013 = 0
  83.         BYTE014 = 0
  84.         FGet 1, STRING004
  85.         FGet 1, STRING005
  86.         If (Ferr(1)) Goto LABEL009
  87.         Tokenize STRING005
  88.         While (TokCount() > 0) Do
  89.             BYTE001 = GetToken()
  90.             BYTE002 = GetToken()
  91.             BYTE003 = GetToken()
  92.             BYTE004 = GetToken()
  93.             BYTE005 = GetToken()
  94.             BYTE006 = GetToken()
  95.         EndWhile
  96.         If (BYTE007 == BYTE001) Then
  97.             BYTE013 = BYTE013 + 1
  98.             Goto LABEL003
  99.         Endif
  100.         If (BYTE007 == BYTE002) Then
  101.             BYTE013 = BYTE013 + 1
  102.             Goto LABEL003
  103.         Endif
  104.         If (BYTE007 == BYTE003) Then
  105.             BYTE013 = BYTE013 + 1
  106.             Goto LABEL003
  107.         Endif
  108.         If (BYTE007 == BYTE004) Then
  109.             BYTE013 = BYTE013 + 1
  110.             Goto LABEL003
  111.         Endif
  112.         If (BYTE007 == BYTE005) Then
  113.             BYTE013 = BYTE013 + 1
  114.             Goto LABEL003
  115.         Endif
  116.         :LABEL003
  117.         If (BYTE008 == BYTE001) Then
  118.             BYTE013 = BYTE013 + 1
  119.             Goto LABEL004
  120.         Endif
  121.         If (BYTE008 == BYTE002) Then
  122.             BYTE013 = BYTE013 + 1
  123.             Goto LABEL004
  124.         Endif
  125.         If (BYTE008 == BYTE003) Then
  126.             BYTE013 = BYTE013 + 1
  127.             Goto LABEL004
  128.         Endif
  129.         If (BYTE008 == BYTE004) Then
  130.             BYTE013 = BYTE013 + 1
  131.             Goto LABEL004
  132.         Endif
  133.         If (BYTE008 == BYTE005) Then
  134.             BYTE013 = BYTE013 + 1
  135.             Goto LABEL004
  136.         Endif
  137.         :LABEL004
  138.         If (BYTE009 == BYTE001) Then
  139.             BYTE013 = BYTE013 + 1
  140.             Goto LABEL005
  141.         Endif
  142.         If (BYTE009 == BYTE002) Then
  143.             BYTE013 = BYTE013 + 1
  144.             Goto LABEL005
  145.         Endif
  146.         If (BYTE009 == BYTE003) Then
  147.             BYTE013 = BYTE013 + 1
  148.             Goto LABEL005
  149.         Endif
  150.         If (BYTE009 == BYTE004) Then
  151.             BYTE013 = BYTE013 + 1
  152.             Goto LABEL005
  153.         Endif
  154.         If (BYTE009 == BYTE005) Then
  155.             BYTE013 = BYTE013 + 1
  156.             Goto LABEL005
  157.         Endif
  158.         :LABEL005
  159.         If (BYTE010 == BYTE001) Then
  160.             BYTE013 = BYTE013 + 1
  161.             Goto LABEL006
  162.         Endif
  163.         If (BYTE010 == BYTE002) Then
  164.             BYTE013 = BYTE013 + 1
  165.             Goto LABEL006
  166.         Endif
  167.         If (BYTE010 == BYTE003) Then
  168.             BYTE013 = BYTE013 + 1
  169.             Goto LABEL006
  170.         Endif
  171.         If (BYTE010 == BYTE004) Then
  172.             BYTE013 = BYTE013 + 1
  173.             Goto LABEL006
  174.         Endif
  175.         If (BYTE010 == BYTE005) Then
  176.             BYTE013 = BYTE013 + 1
  177.             Goto LABEL006
  178.         Endif
  179.         :LABEL006
  180.         If (BYTE011 == BYTE001) Then
  181.             BYTE013 = BYTE013 + 1
  182.             Goto LABEL007
  183.         Endif
  184.         If (BYTE011 == BYTE002) Then
  185.             BYTE013 = BYTE013 + 1
  186.             Goto LABEL007
  187.         Endif
  188.         If (BYTE011 == BYTE003) Then
  189.             BYTE013 = BYTE013 + 1
  190.             Goto LABEL007
  191.         Endif
  192.         If (BYTE011 == BYTE004) Then
  193.             BYTE013 = BYTE013 + 1
  194.             Goto LABEL007
  195.         Endif
  196.         If (BYTE011 == BYTE005) Then
  197.             BYTE013 = BYTE013 + 1
  198.             Goto LABEL007
  199.         Endif
  200.         :LABEL007
  201.         If (BYTE012 == BYTE006) BYTE014 = BYTE014 + 1
  202.         If ((BYTE013 == 0) && (BYTE014 == 0)) Goto LABEL002
  203.         If ((BYTE013 == 0) && (BYTE014 == 1)) Then
  204.             STRING006 = "$1.00"
  205.             Goto LABEL008
  206.         Endif
  207.         If ((BYTE013 == 1) && (BYTE014 == 1)) Then
  208.             STRING006 = "$2.00"
  209.             Goto LABEL008
  210.         Endif
  211.         If ((BYTE013 == 2) && (BYTE014 == 1)) Then
  212.             STRING006 = "$5.00"
  213.             Goto LABEL008
  214.         Endif
  215.         If ((BYTE013 == 3) && (BYTE014 == 0)) Then
  216.             STRING006 = "$5.00"
  217.             Goto LABEL008
  218.         Endif
  219.         If ((BYTE013 == 3) && (BYTE014 == 1)) Then
  220.             STRING006 = "$100"
  221.             Goto LABEL008
  222.         Endif
  223.         If ((BYTE013 == 4) && (BYTE014 == 0)) Then
  224.             STRING006 = "$100"
  225.             Goto LABEL008
  226.         Endif
  227.         If ((BYTE013 == 4) && (BYTE014 == 1)) Then
  228.             STRING006 = "$5,000"
  229.             Goto LABEL008
  230.         Endif
  231.         If ((BYTE013 == 5) && (BYTE014 == 0)) Then
  232.             STRING006 = "$100,000"
  233.             Goto LABEL008
  234.         Endif
  235.         If ((BYTE013 == 5) && (BYTE014 == 1)) Then
  236.             STRING006 = "JACKPOT!!!"
  237.             Goto LABEL008
  238.         Endif
  239.         Goto LABEL002
  240.         :LABEL008
  241.         FPutLn 3, "@X0A@POS:13@", STRING004, "@X0F@POS:53@", STRING006
  242.         Goto LABEL002
  243.         :LABEL009
  244.         PrintLn "                                @X0A....DONE!"
  245.         PrintLn "@X0F      THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE  "
  246.         If (STRING006 == "") Goto LABEL010
  247.         FPutLn 3
  248.         FPutLn 3, "@X09        THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
  249.         FPutLn 3, Space(14), "@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
  250.         FPutLn 3
  251.         FPutLn 3
  252.         FPutLn 3, "@WAIT@"
  253.         FCloseAll
  254.         Delete PPEPath() + STRING002
  255.         Delay 45
  256.         End
  257.         :LABEL010
  258.         FPutLn 3
  259.         FPutLn 3
  260.         FPutLn 3
  261.         FPutLn 3, "@X0A                                 NO WINNERS@X07"
  262.         FPutLn 3
  263.         FPutLn 3
  264.         FPutLn 3
  265.         FPutLn 3, "@X09        THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
  266.         FPutLn 3, Space(14), "@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
  267.         FPutLn 3
  268.         FPutLn 3
  269.         FPutLn 3, "@WAIT@"
  270.         FCloseAll
  271.         Delete PPEPath() + STRING002
  272.         Delay 45
  273.         End
  274.         PrintLn ""
  275.         PrintLn "@X8C WARNING!@X07 NOT A VALID DRAWING DATE -OR- THIS PROGRAM IS UN-REGISTERED"
  276.         PrintLn ""
  277.         PrintLn ""
  278.         PrintLn ""
  279.         Wait
  280.         End
  281.     Endif
  282.     PrintLn ""
  283.     PrintLn "     ERROR---   CHECKPIK.CFG FILE IS MISSING......ABORTING"
  284.     End
  285.  
  286. ;------------------------------------------------------------------------------
  287. ;
  288. ; Usage report (before postprocessing)
  289. ;
  290. ; ■ Statements used :
  291. ;
  292. ;    4       End
  293. ;    1       Cls
  294. ;    1       Wait
  295. ;    77      Goto 
  296. ;    43      Let 
  297. ;    19      PrintLn 
  298. ;    41      If 
  299. ;    1       FCreate 
  300. ;    2       FOpen 
  301. ;    1       FClose 
  302. ;    3       FGet 
  303. ;    31      FPutLn 
  304. ;    2       Delete 
  305. ;    8       InputStr 
  306. ;    2       Delay 
  307. ;    1       Tokenize 
  308. ;    2       FCloseAll
  309. ;
  310. ;
  311. ; ■ Functions used :
  312. ;
  313. ;    13      +
  314. ;    44      +
  315. ;    48      ==
  316. ;    1       >
  317. ;    36      !
  318. ;    10      &&
  319. ;    2       Space()
  320. ;    1       Ferr()
  321. ;    14      String()
  322. ;    5       PPEPath()
  323. ;    6       GetToken()
  324. ;    1       Exist()
  325. ;    1       TokCount()
  326. ;
  327. ;------------------------------------------------------------------------------
  328. ;
  329. ; Analysis flags : No flag
  330. ;
  331. ;------------------------------------------------------------------------------
  332. ;
  333. ; Postprocessing report
  334. ;
  335. ;    0       For/Next
  336. ;    1       While/EndWhile
  337. ;    35      If/Then or If/Then/Else
  338. ;    0       Select Case
  339. ;
  340. ;------------------------------------------------------------------------------
  341. ;                 AEGiS Corp - Break the routines, code against the machines!
  342. ;------------------------------------------------------------------------------
  343.